home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1996 June / MACPOWER-1996-06.ISO.7z / MACPOWER-1996-06.ISO / Shareware Top20+ / 星の世界 2.0.sit / 星の世界 2.0 / 星の世界 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1996-03-16  |  4KB  |  19 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>53</cardCount>
  7.     <cardID>18740</cardID>
  8.     <listID>9125</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><true /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>328</height>
  15.     </cardSize>
  16.     <script>on openstackAddColor install -- ﾃ雨ﾃ嘉｢ﾃ…[ﾃ｢ﾂｪXCMDﾃ‡ﾃεｨﾃ｢ﾃ､ﾋ凖｢ﾂｪput the result into RE -- AddColorﾃ‡ﾃε 笳甘‡ﾃε烏ﾃ嘉｢ﾃ…[ﾃｨﾃ ﾃｳﾃｹif RE <> "" thenbeepanswer "ﾃ嘉…ﾃ嘉‡ﾃ嘉､ﾃｯsﾃｫﾂｴﾃ‡竏†ﾃｩvﾃ‡ﾃ古‡ﾃ催‡ﾃ暗･ﾂ･ﾃ ﾋ†ﾃ‡窶ｦﾃ‡ﾃ甘‡ﾂ｡ﾃ‡ﾆ津映ﾃ…[ﾃ運ﾃ‡ï｣ｿﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡ïｬづ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津‡竕暗‡ﾂｵﾃ‡ﾎｩﾃ③HyperCardﾃ‡ﾃε嘉…ﾃ嘉‡ﾃ嘉､ﾃ欝ﾃ韻ﾃ浦ﾃ‡ï｣ｿ2500KBﾃ ﾂｻﾃｨ窶榲‡窶ｦﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"domenu "Quit HyperCard"end ifBeginStack -- ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃεｨﾃ｢ﾃ､ﾋ凖｢ﾂｪpass openStackend openstackon closeStackAddColor remove -- ﾃ雨ﾃ嘉｢ﾃ…[ﾃ｢ﾂｪXCMDﾃ‡ﾃεｨIﾃｳﾏ\ﾃｨﾃ ﾃｳﾃｹQuitStack -- ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃεｨIﾃｳﾏ\ﾃｨﾃ ﾃｳﾃｹpass closeStackend closeStackon domenu Xif X = "Protect Stack..." and ShiftKey() <> "DOWN" thenanswer "ﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃｯ竄ｬﾃ･ﾃ湘‡ï｣ｿﾃ‡ﾂｫﾃ‡ﾂｧﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥‡ﾂｩﾃ⑨" with "ﾃ｢ï｣ｿﾃｨﾃｺ" or "ﾃｪ窶ｺﾃｭﾃ‹" or "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣"if it is "ﾃ｢ï｣ｿﾃｨﾃｺ" then KAIJOif it is "ﾃｪ窶ｺﾃｭﾃ‹" then HOGOexit domenuend ifpass domenuend domenuon openCardSend colorMe to this card -- ﾃ雨ﾃ嘉｢ﾃ…[ﾃ｢ﾂｪpass openCardend openCardon closeCardlock screen -- ﾃ雨ﾃ嘉｢ﾃ…[ﾃ｢ﾂｪﾃｳppass closeCardend closeCard-- ﾃ ﾂｻﾃ｢竏ｫﾃ‡ﾃ陛ｭﾃ凝｣`ﾃ‡ﾂｵﾃ‡ﾎｩﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｢on colorMeAddColor colorCard,dissolve,30 -- ﾃ雨ﾃ嘉｢ﾃ…[ﾃ｢ﾂｪend colorMeon BeginStack k -- ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃεｨﾃ｢ﾃ､ﾋ凖｢ﾂｪglobal SvLvl,Auto,WT1,WT2put the Userlevel into SvLvlset userlevel to 1set cantPeek of this stack to trueset cantAbort of this stack to trueif there is a menu "go" then disable menu "go"if there is a menu "Edit" then disable menu "Edit"-- ﾃ ﾂｻﾃ｢竏ｫﾃ陰ﾃ叡ﾃ益ﾃ嘉｣ﾃｯWﾃｨﾃ„ﾃｯtﾃｫﾃ†ﾃ‡ﾃε営ﾃ…[ﾃ嘉｣ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃε嘉…ﾃ泳ﾃ嘉姪…[ﾃ‡ï｣ｿﾃｨﾂ｡ﾃ‡竏‘if there is a menu "ﾂ ïｬや\ｹ竏楪ｬ竏槐ｸ" then delete menu "ﾂ ïｬや\ｹ竏楪ｬ竏槐ｸ"if there is a menu "竏や頼竏ž" then delete menu "竏や頼竏ž"-- ﾃ厩ﾃ嘉｢ﾃ韻ﾃ栄ﾃ鰻ﾃ嘉｡ﾃ…[ﾃ‡ﾃε 笳甘‡ﾃεｪ窶ｺﾃｭﾃ‹put 5 into WT1put 30 into WT2put False into Auto -- ﾃｩﾃ凝ｬﾃ†ﾃ嘉‡ﾃ…[ﾃ栄ﾃ‡竕暗‡ﾃ彦alseend BeginStackon QuitStack k -- ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃεｨIﾃｳﾏ\ﾃｨﾃ ﾃｳﾃｹglobal SvLvlCompactMeReset menubarset Userlevel to SvLvlend QuitStackon CompactMeplay stopif the FreeSize of this stack > 5000 then domenu "Compact Stack"end CompactMeFunction WTime Auto      -- ﾃｫ窶愿‡ﾃｸﾃｩﾃｻﾃ､窶佚‡ï｣ｿﾃ･ﾃ ﾃｭﾃ凝‡ﾂｵﾃ‡ﾆ津‡ﾂ｢ﾃ‡ﾃ暗､ﾃｷﾃｪﾃｮglobal WT1,WT2if WT1 = "" or WT2 = "" thenput 5 into WT1put 30 into WT2end ifif Auto then return WT1  -- ﾃｩﾂｩﾃｬﾃ†ﾃ嘉‡ﾃ…[ﾃ栄ﾃ‡竕暗ｩﾃｼﾃ‡ﾃε雨ﾃ…[ﾃ栄ﾃ‡窶ｦﾃ 竅„ﾃｬﾃ†else return WT2         -- ﾃｩﾃ凝ｬﾃ†ﾃ‡邃｢ﾃｩﾂｩﾃｬﾃ†ﾃ‡窶ｦﾃｪﾃｿﾃ‡ﾃ凝ｫﾃｷﾃ‡ﾃ古‡ﾃˆend WTimeFunction STW  -- ﾃｫﾂｨﾃ‡竕 ﾃｪiﾃ‡ïｬづ‡ﾃ暗雨ﾃ…[ﾃ栄ﾃ‡ﾃεｫ窶愿‡ﾃｸﾃｩﾃｻﾃ､窶佚‡ï｣ｿﾃ②return 3    -- ﾃｭﾂ ﾃｨﾃ古‡ﾃε｢ﾎｩﾃｯ邃｢ﾃ‡ﾃε ﾃ催‡窶ｦﾃ‡竏妥‡ﾃ暗‡ﾃε‡ﾂｩﾃ③end STWon ABOUTplay stopPicture "About",resource,dialog,falseplay "Exp5"show window "About"wait until mouse()= "DOWN"close window "About"end ABOUTon Kaijoset userlevel to 5set cantPeek of this stack to falseset cantAbort of this stack to falsereset menubarend Kaijoon Hogoset userlevel to 1set cantPeek of this stack to trueset cantAbort of this stack to trueif there is a menu "go" then disable menu "go"if there is a menu "Edit" then disable menu "Edit"-- ﾃ ﾂｻﾃ｢竏ｫﾃ陰ﾃ叡ﾃ益ﾃ嘉｣ﾃｯWﾃｨﾃ„ﾃｯtﾃｫﾃ†ﾃ‡ﾃε営ﾃ…[ﾃ嘉｣ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃε嘉…ﾃ泳ﾃ嘉姪…[ﾃ‡ï｣ｿﾃｨﾂ｡ﾃ‡竏‘if there is a menu "ﾂ ïｬや\ｹ竏楪ｬ竏槐ｸ" then delete menu "ﾂ ïｬや\ｹ竏楪ｬ竏槐ｸ"if there is a menu "竏や頼竏ž" then delete menu "竏や頼竏ž"end HogoFunction VersionMe Xif X = "" then return "Ver.2.0"if X = "long" then return "ﾃｪﾃ佚‡ﾃεｪﾂ｢ﾃ､Eﾃ①Ver.2.0"if X = "short" then return "2,0,-1"end VersionMe</script>
  17.     <background id="2821" file="background_2821.xml" name="ﾃ韻ﾃ嘉ｬﾃ曳ﾃ嘉ｧ" />
  18.     <background id="6592" file="background_6592.xml" name="ﾃｪﾃ佚‡ﾃεｪiﾃ｢ﾂｪ" />
  19.     <background id="8504" file="background_